home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Prowrite v3.2.4.adf / EndNote < prev    next >
Text File  |  1992-05-07  |  423b  |  22 lines

  1. /* Simple Endnote macro */
  2. Options results
  3. RequestText 'Endnote marker:'
  4. If rc ~= 0 Then Exit
  5. marker = result
  6. RequestText 'Endnote text:'
  7. If rc ~= 0 Then Exit
  8. noteText = result
  9. StyleSuper
  10. Type marker
  11. SetMark
  12. AltDown
  13. CursorDown
  14. CursorRight
  15. AltUp            /* Go to end of document */
  16. NewParagraph
  17. Type marker
  18. Ascii 9            /* Tab */
  19. Type noteText
  20. GoToMark            /* Go back to where we were editing */
  21. StylePlain        /* Turn superscript off */
  22.